(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     31390,        770]
NotebookOptionsPosition[     28423,        679]
NotebookOutlinePosition[     29972,        719]
CellTagsIndexPosition[     29929,        716]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"k", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"-", "a"}], ")"}]}]}], ",", " ", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.602426103081089*^9, 3.6024261556360893`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"k", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}], 
    RowBox[{"1", "-", "a"}]]}], 
  RowBox[{"1", "-", "a"}]]], "Output",
 CellChangeTimes->{{3.602426136707089*^9, 3.6024261563270893`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"F", " ", "=", " ", 
  RowBox[{
   RowBox[{"Out", "[", "2", "]"}], " ", "-", " ", 
   RowBox[{"k", "/", 
    RowBox[{"(", 
     RowBox[{"1", "-", "a"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.60248692902137*^9, 3.6024869473533697`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"k", "=", " ", 
  RowBox[{"(", 
   RowBox[{"a", "-", "1"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.6024869594193697`*^9, 3.60248697490337*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", "a"}]], "Output",
 CellChangeTimes->{3.6024869754523697`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["k", 
    RowBox[{"1", "-", "a"}]]}], "+", 
  FractionBox[
   RowBox[{"k", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}], 
     RowBox[{"1", "-", "a"}]]}], 
   RowBox[{"1", "-", "a"}]]}]], "Input",
 CellChangeTimes->{3.60248698172637*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"-", "1"}], "+", "a"}], 
    RowBox[{"1", "-", "a"}]]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "a"}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}], 
     RowBox[{"1", "-", "a"}]]}], 
   RowBox[{"1", "-", "a"}]]}]], "Output",
 CellChangeTimes->{{3.6024869817553697`*^9, 3.60248700816737*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", " ", "=", " ", "3"}]], "Input",
 CellChangeTimes->{{3.6024871483273697`*^9, 3.6024871581163692`*^9}, {
  3.6024879118763695`*^9, 3.60248791198837*^9}, {3.60248837709437*^9, 
  3.60248837754937*^9}, {3.60248969408237*^9, 3.6024896944253693`*^9}, {
  3.6024897567013693`*^9, 3.6024897630043697`*^9}, {3.60249033298337*^9, 
  3.60249033360837*^9}, {3.6024904160273695`*^9, 3.6024904165783696`*^9}, {
  3.602500908053339*^9, 3.602500908124339*^9}, {3.6025010985143385`*^9, 
  3.602501114831339*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{
  3.602500908667339*^9, {3.6025010994723387`*^9, 3.602501115414339*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"F", "=", " ", 
  RowBox[{"Function", "[", 
   RowBox[{"x", ",", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "-", "1"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "x"}], ")"}], 
        RowBox[{"1", "-", "a"}]]}], 
      RowBox[{"1", "-", "a"}]], "+", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6024870505833693`*^9, 3.6024870514133697`*^9}, {
  3.6024870846693697`*^9, 3.6024870975693693`*^9}, {3.6024876417343693`*^9, 
  3.60248764227837*^9}, {3.6024877793423696`*^9, 3.6024877918923693`*^9}, {
  3.60248786856837*^9, 3.6024878688283696`*^9}}],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{"x", ",", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "-", "1"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "x"}], ")"}], 
       RowBox[{"1", "-", "a"}]]}], 
     RowBox[{"1", "-", "a"}]], "+", "1"}]}], "]"}]], "Output",
 CellChangeTimes->{{3.60248714933737*^9, 3.6024871584663696`*^9}, 
   3.6024876684193697`*^9, 3.60248779260837*^9, {3.6024878508813696`*^9, 
   3.6024878695143695`*^9}, {3.60248791570037*^9, 3.6024879286283693`*^9}, 
   3.6024883829673696`*^9, {3.6024889972963696`*^9, 3.60248901357537*^9}, 
   3.6024896986593695`*^9, 3.6024903365713696`*^9, 3.6024904189423695`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"F", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "8"}], ",", "16"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6024871298873696`*^9, 3.60248714442937*^9}, {
   3.6024878053643694`*^9, 3.6024878099383698`*^9}, 3.6024897714203696`*^9, {
   3.6024903450243697`*^9, 3.6024903726303697`*^9}, {3.602500915388339*^9, 
   3.602500915700339*^9}, {3.6025011231293387`*^9, 3.602501123591339*^9}},
 NumberMarks->False],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkns41AkXx13GdVzGjMEY49ZKF9Im6SInSTRLFEolt4pYq0JtLoXaNrrQ
5q7IlrRFhRApnSKRZCkkxFBmmsvvJ0Sp5Z33j/Oc5/PHeZ7Pc75fk6ADW/fJ
ycjI/C2d/+9nfiaDc3NGKJKz//avDwnzp2xcj3w1wmOBv3cekXLyeW6teMwI
+VXlQQZSdn0Yld7LM8JiJ0lx8HYSOllNzvcajLD2ZmPVtDcJQ2/CyoJPG6Gd
fcV1qicJP7iVSW0aRhieyzj21ZWE5bbOP13iGGJKY6igA0jwClzmeIBpiCO5
weE7pBx9lhPkqG6Izczx40P2JFQNTlwR/eAgpSHGTbKWhBXJhWy7fg4u6YhL
lLUjwbb3G30gj4NdezofMlaSsDquVNZIj4P//eSxpc+KhJ3Xs40nNDmoOSBJ
9JRybPsJeK7EwdC4yMWtS0iom7fj2IFpA2Q/OULUWJJg91Lh2+NuA6wh9Vip
i0lYy/EfC8g0wCb/0CBDcxLWPdYavEo3wOT9MukdHBIadWgFslQDnEpzIByk
7BKhsTtA3gDDyhOx3IAEdw61jzPJxuCZtc/T2CT4xVF6crrY2K+4i+vEIiHe
dvpVag4bS/4pSs7UJqHmbn99rCEb+bFf7j1Tlfoo9R3r1WGj49nqP+dJGf16
7VZqsjHLP7AmUYWE5+rdD77M6WNynIHNKmUSun9trz7I00edsKj4qwokTJo/
vRNcpI9TazclesuQYFV4o2DrIn2clXTOrPhCwPLL7nd6TPUx6uvJ1BOTBKzO
mX7ky9ZHN9exsLYJAjZecB4IVtPHJbK6MwHjBPgm8tlxBAu/kZRtCSQByQHm
udcqWNj9Wt005xMBw8Y30idXs3A8Qydv2QABAgP3azHWLCwSNDrs6ydAojdd
MbuYhW7UYs3sPgK+0pw7lTks5L+2YH3tJUBDlk/jzOlhR5Tyk7vdBKzhzU91
atDDroFM7mQ7ARl/Fydn/aKHdryMueYnBPgsNePGOOohL2v7RAsSYPD4GtV3
jR4uYszea3lMQFF/YarJYj30MF6T8ewRAZW6lzJKVfVwhVNc7p1aAt6cTyt8
2qKLQ9dmPzuWE8CMPVpDOOtiXdCijvArBLxTno7pAF1UqevxdCwgoCD78JpK
W138bSxwt14+AfOrIutjzHXR/LT690d5BKwYC2+kKOlK+5jHms4kYFtw4L/6
TTq4cGB1juE5ArK2cgUbN+igWNigZvU7AfUa/Zsq7XTw9cmmNMFhAj6++K3E
xEYHhxKYcYXR0nwc/4r4YaaDb/wnEqiRBHRav50sV9JBE6+xqbZwAjSZwbKc
Via+K6IslAuS5tGTpD+xhYlzU8Gv6b8QUJbOiA/gMrHy3GxT+iYCetyvD7St
Z+I5D5mndBepf3Nz4T/WTNxWugtVnQhorNE092MyMfxgZNywPQGyefnWLW+1
UTtkqsZyGQGxvrWuV/y1sdrtroyeLgEBJSYBYdu10fsG/7AFU9qXmZQoG3dt
PDMSQLFnEEDP2ZnXaq+NHddzvX00Cbj1+jt/mqON4eePmIQqSf/LtT/p0c9A
I6MdxJcpCaxe1VAru4OBCpbskPOvJWCcvLjtpQcDbRvvHFrZIQHFnvShbBcG
qi7Orx18JYHO6L1KS1YykDFO5Zm+kEBYmYL3Tl0GXp8euR6LEsgzdxmr6KKj
QpV/zP5SCXxnts3fu5WOEVbZVd8TJRCkMnjGm0vH2N0VPouOS+DFjzFi43o6
0kqvWHvFSe9HtO8vXEZHp6hD+3IPS/3KfZ1JLTraV11NEoRK4KirOCS2Qws9
NnccSdsigakT1JsXPLQwybKXd8NAAn5HOOonXLRwj1ugwIwlgaZQq0NR67Rw
1JB2Op8pgSwPz1XblmqhWvaCzTEaErAxvNTCpmnhj75sB96cGKJrFwmL22mY
+c5TZS9PDOPkpsWPNtNQb+pvzcoCMdTTDlitcqbh5IV1x9LyxJDyc4Z1FdBQ
XXGry54sMRhHvV9zeykNQ4x3lkycF4PbVKRrPp2Grwu+nK6KF8OWb7Z9M6Wa
aNr4l6DERwyC1SdGxvM1kb4kskfeSwzH41+KhKma2JhU07vVXQylcwE/3h3U
RDO/uoddTmJQVjzDqVuuiRs7LMLCl0l96P3+cQ810LKi5NVzFTF4e83fH3Vb
A18VNqefoohBnHnw4K8FGlj74kzvyjkRsFgKSbsSNXCmM/1IwqQIoo2WXF2z
QQOL2TOvUt6LYJFF4ofvrep4tTcv8miZCLKdfgqN71PDl12llzq5IrhVyu6y
alVDWqepb4SjCOoZDIeRB2r4+eTu4q9rRDDKk2Vx89SwJzBrpsdCBMuPDzbr
7lBDsj0jqE5dBJ3VeQvudVMx8EKZxVCrEEY5FzOCm6iYe9WszKVBCDN/pMjo
V1Mx1T/r3aUHQjDxPPo2MZOK31ujlGRvCuEg6Z282YuKjgf2VNb/IQT1BVqC
Tx2q6Lt3oPuprRCM05S98p+o4mSyXVe5pRCWT8099ihXRTcrlag/5wnBt5HI
vn9BFYvpkaxBDSHcCnjpfMpdFe1v7U11/PAJXHJP3zBuU8GIiHj3hJRPcFJ1
Nnh7szJu31DSfvaBAPxeshnGtcr4wTQpgHtbACtTVz0W3FTGWknXhQ9XBEBo
HdaNPauME/sd7t/8QwA7WeLnlzcr49GGyA8hrgJYuuDdguE3StgnF7jv5zd8
oAqn39x6poRFN71u7mvkw2gJMymqWglP89dP/FrJh0tWW3opOUpo6GzdIkrn
g6Jtc4r5LiXcv2GvapEHH/qdqoXhPEVcdnlQuBFH4b7SmyybTkXkyJmdgtuj
cLHl8/rZp4r4MVJx4X+5o+DsZnkprUgRq6mu1Q2Ro1DhVfRLRYgi9k9bjgaa
jELynoul0xIFXL8hMmbs0EfYY1bmg+8VMMsz2bZu50ew57dRUtoVMOFLC3OV
40eYCFPZrV+ugKazB3tcGB/BLzJRfW20Ajb5bXT66+4HsEmKiDgxQ8GwD5s2
HuoZAe1zg3XZIgo+lRVQNteNwHiWh8rtfgom6jQUNReMwJ3SZUU99RTkBp/y
urB3BBa8neq1OEnBM5O0O8tFw6A4EmK+PpqCfptzvrS2DsNHydvo7fsoGNjE
yfxcMgxX5es0TzhTsPDMUuvBsGEwsEpw6qFSMOSf6zsoIzyYWTV2UfxDHhvj
Q8zaH/Ogd0PgkCwhjxU/XznHvMyDrJ2OcRb/yiNXVF+m6skD2p9K5UkZ8jjk
5mO16cEQUAbSDCw48rguvmQBr/s9DPNlwhw05LFp029qC4+9hyfjh+5vm5ND
Ve8bI3Km7+G4stfWJJ4cct/OI11DBmBefn5ITqUc+ji0/r5hXT/8D/noBfI=

     "]], LineBox[CompressedData["
1:eJwV03k01d33B3DDfczdzLMeFCG5KCrF3mTIkKQMTSpUhkgeRcqjVIZQSGQo
Uj+eSjTQQJKSVEplLENc3Nzp80HIEL6f3x9nnfVaa6+1z9nnfbR8j7gfEBIQ
EPhCrf/fo1jkrs0328Db+kOkLXYDL2hA1S+2A3YXKvAdXvVARd7fTqGCnbDE
V5Q0Wt4Lp5p2nThxthNojUUnd17oBUmj1o5LCd/gehPducT5BxiM1mc+v9QF
gUMbI9L29MGYlmD9W5luOLXy8qu8pD6ocrf89fVyNygbSUzxK/rAsaJyKzu7
BwIKclUjxfshILKYrlj4Axo23/GLv9MPLfMb69d09sPO/I+yuc1MMFdi7rJU
YYLCOZr+y1Em5DJO/7LZyYTdRqOOvnID4LvvubZrNxPsuuYNdTwGYKxu9Rn/
vgGQsooO5n4dAJnzOlbpw0PQkqeaFPVsECKuvW7L0mdB4auIr9Gtg9BZuT8k
P4gFvqqm59TJQShkXcsv4bHgcLIC2i0dAuNNirM1Iz+hMk2iYlfCEGyRFH3K
mWKDSIZP6AywIOup5JY8Mw68WxFx1XY7C3oPSLOcwzkQzmos2xLAgtCXKvL3
uBxw6bhSWnqJBSnHDMOO9HKpOZbpXOtiQeOPrXrjr/lg+4fvqh34E6RTPWtv
CRBgXtb9iHPiJ3hZ7PL0sCRAqOSMctyFn8DK9D/3+DEBMxf/bdO8+xNoTpF9
UbdJGL/MFjfl/ATNna5N/74dgVAfBdrafcNQf/+zUsfQCOxmZ62wCR2GANFt
fgzaKKxy+FGmc2oYyiu8Zn7gKDyjhc9GZw+D1eL9etZVo3BaMPV8SNMw7K7/
55zwvTEwWgi52s9gQ45RzobEjHEYuq6grdDHBhuLupeBj8Yh1qDyjjiXDTw7
tq1z6zgE9rQO902wAfes20xXnABrYdqydZIcGE7+ticzZwIUPWIT81ZzYC1b
JbawcBKOBieYRsdxgDluLRxXNwn2tR8M3iZzIEUgKMGPOQkHPUYy/2RyoE+p
6pLust/AXn1vRquEA4n2OwtLS35Do2/gob3vOdB5M7fuadkUuJ01rRiQ4kJc
+Su73OYpcHn+cdN3eS4YVnPenRyZApkbJpU16lw4/dXiq5XpNHgOHxB3MeSC
nmAXs75yGr7q5SilOnEhykeN9uX5DAQM/ij+cpYLSir59uz3f+BNY+V8HYcL
VRkaiSbcPyB0aL3D9REu7JYqeHdCcg6iPIpnQia5ULRww0XCZQ781+4wGRbk
gSGrxH3FxzlgThKlzso8wEePfEKa5yH84j8fuDY8YBqaFVaS8+BzK/ASfRMP
zhc/7p9bvAAX9oa+0d3Mg/c5z/wvui3Afx2FM2u8eOBxujao/MsC0BxDcvqC
eFBZfKB6KlAAj6Ysmt6fxoN4P91u9WgB9BVryhrO5IG35s8/eEEAbw2j48Ec
HszkBFgl3RHAV65xjg5F1HlSg+tUuAK4R89nVdEjqt8/R99aHBbEVIbujU+t
POjFmJZToULo6+CmnSLDh+EipYrkGCEU1dDc1SfPhzHaw8zcFCEkth/nGinz
QfQdy+PpHSFMGHlhV72ED8Zb3Tp/sYTw1Cczq4wVfIjbv7QnaK8wPqr2qNpo
yweduHcsbzcaus432AqFU/WDfm8P7aXhfz53qp5E8MHCfr7keCgN84t6BgIi
+eAqsSowM4WGT7aGRrw4xYfjGfnc5kYaHg0pjl+TwIfGoiMj9tZ/oVH49uGA
PD4cfq0ws9pUBC0fZMgL1PFhekEoMtFGBD0c3jKDqX8Yv2HkV5e7COrFkY0t
b/hwo/I9P+4fEbwqlzaf/Z4P7SWx/Z8rRJAcCh4fa+GDdQq78fAaUezsPUpO
D/GpXNdk39oghpZS6RtiRQm4mX5HfspFDK/Y2lSdEifA+FN2uvMeMTxTeM8s
UpIAZ4fw5LEYMQxb+93SbzEBp9ctj8VaMYxd57lOWYkArkb6wW5rcTyoXNM1
o0PAS5a/mbyDBJ7tUxJqtCYgvnFFuLunBCrJ9bZv20iAy52xsrQDEqjh+P1a
jy0B30JO6y06J4HSRr+kuQ4EjI3nqYnUSWBDx16Sv5mAZcItglMWkvhsW216
1g4CEv+2/tRlJIUWHfJKF44Q4CooJqlqJYXbN/rd/R5GgPzAJwfvzVIYnke/
qh9OwI3i3XWtwVK4JjD1/KsIAqpWRlV8/E8KU8P85vpOEMBbX55bq70IX8QQ
5V/PErDFW+PQTUU6elnrJOVmESA7miZ0RYeOgW5zkZXZBLQm0a7Hr6ajxS4F
tearBOys5rYGutPxJEs5fj6XAP8lVTbGF+n4rFxtuWsBAVGDnktq/lqMWY5S
9g9LCCgMS2trH1+MebdlX+c+IeABLW7toKA01lve67n0lOr3Zb3IHnFpXP3H
jnX2GQFtgeU3XJWlMdrj09uAaqpfXlanibk07qhSn9KppfrN+9tPHZXGfQoH
/I40EHCiXlD7PFsaJzgm5za1EqA+P2hZOCqN3d6jnsZtBLxY07ijeloaC7q1
NJTaCaDdvZg+Ki6DPs3OF/o7CEhLVxP0MZDBHYau8kFdBBT7mPWZB8tgSHWy
tTOTgJapgOvDPBns1W0Fb5KA46YuVcITMnjvVnaQ1ggByocZ7UvmZLCJLfGE
Tdnnx8Qij0WyWNujWhU5RgDnTVxM3UpZ9CiVT0maIEDgcv7u3FBZ7HC/dfT8
LAErV35WdRmRxXaLxf4sERIOryvM6v4ti/6LRfZcECWh1C5MNmRBFj/EOlWs
FCPBwEda4iJdDoVXSJ0JFydB75LbdLOhHOZ0ed4ZlyRBe/Rzx7ZAOYxd9o3o
kiZBsfJL5i6mHB6XU8pcr0rC/IYWenCrPDplvjA+uIKE2MdNnde65XFVSpDb
GGUB44aiz4PyaDxZPRRjSILg0mfm5hOUs3UiLq8kgSZe4COoqIDTJ++vesog
QbItqCzbSwFvZbS0D68iQTlEyLX+uwJmRJtYcdeTYHrNJFWjXxG9YzJ6rziR
YBJ+RsSArYi6x4W3CTmTYOzwJdZ8VBFfsLYcDKVsNBoWvkVQCbNEnILtXKj7
2t33OqOlhKbFdrPEZup+fCPtof1KaJ3ucMV4KwkyloZPSplK+KeHKAjzImGk
W7d//aAycvQ+Xp/2JSHlnF9VDVcZ/zaOUHH2I2G5YeFl+KWMpckvt+dT9jmp
Yr9RSAXr922hW/mT0KQidddJUwWXTu7J/PcACSWeoxE7dqugATm2dPwQVf+5
WiyyVQU1mzbOPzxM1b92M35Yr4oxNy8qphwj4XbnY6/2JlWsvGtt1UY5nq8e
O9Oqio80xA2XHCcBldgfbYZUsdb63c5yyhVBZ4Jb/lLDy5q3JZsjSciXeVg8
bq+GXlVVhHA0lYe9chpr3qmhRI29o92/1Lxn28Sff1THC9oqAybxJJxj6qV7
tKmjpuN1CKI8/+6kMtmtjpkzi44VUR65qrVcm6eO68AyWDaBhHbzENtECQ28
KFqfOEK5KJwWu91BA7c9NS35vyQS1nFMx3kvNfDUtTN7x1NIOPTtUq9GxRIs
WmteYXCZhGLnsPpjmzRxJnf43tQ1Ej64N/joOmvh/eyC7KkSKk/3Hk/GbdDG
356yF2bLSfC/37pN32Yp5uo/+BnzhIROkdSyk+bLsLXP5UFWDfV+H6XHhXV1
sHLCZOu3VyScWv9qvk1fFyPDDd70vSXh2Nwi0e3qy3E+PddGrImEwkMJrWpL
9XBtYOdDsc8kpFk3pajo6GOOFiQmtJBAP3LX5rWCATb8+MKNaCfhhe3Tmseq
K3DReFSb2zcS5kL2mnvSDZEL1SJVXVS+Rb/mrJgzxLwCo+q+HhLMN4W/chIw
woLOuCsCfSTMdJcOK4wZYYKSe3xzPwm2hxvTNk8aoeXzWOignDo7sPb8jBHa
iDyZ6KWsqaqWNC7EwNfZm3YQlB28kvRb5Bh4/ZvWnBSThMwvB4LSzBhoPj/z
1JGyUcMSnsQJBjJqEyTrKEd5WGTaxDBQv64hoJFy3aDHhugzDJSStHrdTHm7
cGoKO4mBAvSuI72UT+KsYWMuA8NfT5TMUm6s6gg5/5yB07eZmWYDJMg6/VKo
ecnASTWXhg2Ud3+jvxivZ+DCJ+GJjZTJ33Z0/48MvOXt5+ROWdGsosyml4E2
oWJtoZT31Td7RjMZWOgrPnqM8u1t3PkHLAau2ugnEUN5Q7j2Fi2SgR305WbJ
lOMFrX57/2Lg+9zL9hmUP6ftKEj7zcCq7T4eOZRVNY85NM4ycHFy4v5Cyn7l
aeTCAgN9k+WCSyj/DxyaXQE=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.44},
  Method->{},
  PlotRange->{{-8, 16}, {0.4414225740302036, 0.9965397921881556}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.6024871092753696`*^9, 3.6024871601383696`*^9}, 
   3.6024878108563695`*^9, 3.6024897105483694`*^9, {3.6024897595113697`*^9, 
   3.6024897717763696`*^9}, 3.6024903414003696`*^9, 3.6024903729793696`*^9, {
   3.602500903318339*^9, 3.602500917405339*^9}, {3.602501102120339*^9, 
   3.6025011239323387`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G", " ", "=", " ", 
  RowBox[{"InverseFunction", "[", "F", "]"}]}]], "Input",
 CellChangeTimes->{{3.6024878824873695`*^9, 3.6024878898293695`*^9}, {
  3.6024885905043697`*^9, 3.60248859101637*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"InverseFunction", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used. Values may be lost for \
multivalued inverses. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/InverseFunction/ifun\\\", ButtonNote -> \\\
\"InverseFunction::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.60249042352137*^9}],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{"x", ",", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], 
     FractionBox["1", 
      RowBox[{"1", "-", "a"}]]]}]}], "]"}]], "Output",
 CellChangeTimes->{{3.60249040637037*^9, 3.6024904235223694`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{"x", ",", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], 
     FractionBox["1", 
      RowBox[{"1", "-", "a"}]]]}]}], "]"}]], "Input",
 CellChangeTimes->{3.6024890279383698`*^9}],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{"x", ",", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], 
     FractionBox["1", 
      RowBox[{"1", "-", "a"}]]]}]}], "]"}]], "Output",
 CellChangeTimes->{{3.60248902797637*^9, 3.60248904218137*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "x"}], ")"}], 
        FractionBox["1", 
         RowBox[{"1", "-", "a"}]]]}]}], "]"}], "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5.01`"}], ",", "5.01`"}], "}"}]}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVjHk81AkfgCd0Yd1JjkRCknfKXfSdQqxKNpSlkKNE4S1J2mrIFS1aKrUl
R47Ulvtq8/2572UYg8nxm0sJraOUK2/vH8/n+Tz/PGqegcd8hCgUys0f/N++
bz56movKER5/Xuo7N8NFxwGJ1o1r5Ygl12jxxGku0r7u3jUjLEfs9n8oXzLF
RQX9ays5y7JEqHTs8+VPXGzOF3ssNS1L5B5fbE4Y56L2I91eXp8soahax8nj
c/FDaIB1XLYsIZHTuOFvFhd9jWZ29NFkibSmYhvXKi5+rc/Rpp+RIY7pZthZ
h3HR5X25UcYjaUJvg/r1n/ZysesiTby2W4oIeb9/Y8o8B/O3TujwZyUJw/uH
lQ684uCp21IeBu4SxGuH2akILw7qyScuZeaJE54LuwuUfuKgxuUlLekFUaLZ
jR68s4jEukX1kEDf9QRV4B9jfoLEm8+zdkyUrCUu+tRE6bNHkH9jSPjXzWsI
okP40iqREQzQXOPfkChCSBwOOz62ZRjlv8Sa2o8IEX80m8ZGyg3h2fF6nbZD
qwjRcup/DIUG8aV02ZoW3RV8HOfv6FTFRuYU9i4wFlHP5cUQ02EA7VTNPooX
fkMzTsSQzXAfCj8+3+F6+AsakXtPqWxgoaiv5Fyc2gzahu46ZqHHxIciHexJ
n0m8Efcwi9XGwIT8EP1520mUSxxhvqphYIT9ljsi1Elk7x+1p5cz0O/xJXOl
hQlMskkWk8xioJmBYrpNwgR+t71cyb7KQNLrrE9W2ThGCrNpGpoM1KxbNeW8
9iPaKBtVW1/twqJwo9X1eaMYu1+yolbyH1SrEvNISxzF4J1eF/XnOzBphqwK
DRnF5vCHCSncDgzwig/aaTmK1GyXZ1qlHahjRb67PyLAk/ZXLBN/7cCMdXFF
5+QFSDVcmHR42o5JiUPukpE8DDXKldm+uQ0Dn0RWubiTaJ+V/xj4TWgf2rko
b0miSIio/mBjE1IdFM17tEmsyJfpd3/ehHxpj5sP+COY4uBNKAU04fiHsttX
RUdQuShM0XOuEb/d904zPz6EIlJbYtYJNaLMLDY1TA7gBKnxT55IPTLznGz3
lQ8gUzZhfpBXh/fcxtvL6AOorMOkztbWoUKrfHeu7ACeLK0Ta6DXoWrGhcHb
pv04aLrNdX6hFnWPKk0fiWJh/5NbR8PGavDgixBFlnIP0vkc+UkXxOUor4yJ
sW6kN0y6rGxALPGw1xYu78a8TcKru7uqUU1ex4j6y48OshYqt6rGJfrQL3FR
DKSW7i0O1n2L3n/Fylwf7MT+RcMc78kq3CuiMXXkZgt+o32tkN1ThnmVy8th
m1pQ+4i7q9dEKcoH9onlFTcjbZHr5JNWitMDcVpCH5owSd/40I1VpZj7etqt
zL4RK0xT33ypK0ZZV+zYrF6HQXHXqiNMC7HXq/T4yO1KDNo2N6bSmIu1xqSp
aW0FdpVVFWYr5GKBmJhK8kI5UsyMJYL9cjC+2IN30L8MiWU1pxGxbNwvLB70
6nAxEqdNpNusMtHVqkFmcXM+eiz6X47Z/hAJ6lL4lSxPpOjdlTvx5zE0O5jt
SbX6GSi0u5xPNqYw3GNXLHkwECjtZwskTrmDaohmleBQJFDoexisi8FgvOST
75h+HyhGg+mqQjFggVHqd1pzgf6zeLJ7biq0pN8bznWvACKcNtRskQ+HK982
7TOpBApTa/1W2gvoYggKeqWqwMM4MYhj/hL6hYxuCde+AZrKM7VU81cw6s3S
ctdAmBJW5W/TKoTwlHiT+M+1IKW92vCzaymkObeHH6hsgaAvJ2dqvaqB9PaY
+31bK3iQZAN7sRrU//vZb+BuKxB2IxOCFISc28qOQX5tkGT6m9GUNwF/VZ3X
TFPqAGqw9L99T2vALSFasLSvC9K3Z08m69XD+SnNOOeMHgh1K5l7XdUCqYxN
NLKnBygNF7wjZVqhvkh87uwaJpgYjK2b8msFpcszp6/4M8E3I7Q9WaUNWuff
mt437IWC0+XP9sW1g7aw01hPCwvsp2YiGiI6wZFv/dR1iQUmatd7x/idQG/Y
48TT64PIA/YbuVu7oC9mS81Mch98Tv8+xojpgmjxiVRpt34ooDo+0HJkgGDD
LZujMwNAdzkd+XalG6S+Xv7O0mCD87HoeknjHjDr9y1xO8GGyKQ0Y0ZAD6Q8
stsS8DcblJnxD3JHesBSVfHbneh34BtlMdPeyIRM7cLcVsUhOH9Dnuf7kgWv
nwQKZ6mR8JIXbmnAZQPTf/ariDkJyhoOZiK73sE30ysTZ5xJIP06MzPp74DG
utGrk0gCXcF4xVl9ELokEnKLlkig7f5UKxc0BFM3Xx6q7ePA6NqSDKoyCXJ2
VJrGLAc+SvdcWrQlwUS5xCBagguZu6sGjob9+FS8UbG14gJ3G1sqnU2C1HTr
v4wiLrgYjuvuzOQA1XMsmfM7D5pnmgoqjvLAkXoh1uI5D9TFzBixsTwI/T71
W3Y9D5RtV9ltrOUB8eibz7lFHmTaXAe6MR/se9aaTPvyIfi1UOfKDgEEZ8Tr
OkTyoV3RuBX8BZAaKKlW+pQPZ/ISH3m9EAAptlH0KosPHhfJa+f1RiHIUnOQ
YimA3+aFFDRp7yFFJr/L010Af4QZBGrGvIcKcmdDfZgACO8L1ns73wPluuGr
2EIB6NV8lELPD8BabyHrUScAhWHmsOq9D/A//oQuCg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{-5.01, 5.01}, {-0.5920914848364696, 0.7682036735704427}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.6024890442913694`*^9, 3.6025011361883388`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G", "[", "0.7", "]"}]], "Input",
 CellChangeTimes->{{3.6024887731523695`*^9, 3.6024887763483696`*^9}}],

Cell[BoxData["2.333333333333333`"], "Output",
 CellChangeTimes->{3.6024887765913696`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "-", "1"}], ")"}], "*", "x", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"-", "a"}], ")"}]}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.602500378766339*^9, 3.602500380935339*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}], 
     RowBox[{"1", "-", "a"}]], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "a"}], ")"}], " ", "x"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"-", "2"}], "+", "a"}]]}]], "Output",
 CellChangeTimes->{{3.602500377466339*^9, 3.6025003818873386`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "-", "1"}], ")"}], "*", "x", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"-", "a"}], ")"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"+", "Infinity"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6024888588693695`*^9, 3.6024889412903695`*^9}, {
  3.6024911135193696`*^9, 3.6024911151513696`*^9}, {3.602499623548339*^9, 
  3.6024996537103386`*^9}, {3.602499697851339*^9, 3.602499704058339*^9}, {
  3.602499756207339*^9, 3.6024997637673388`*^9}}],

Cell[BoxData[
 RowBox[{"ConditionalExpression", "[", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "a"}]], ",", 
   RowBox[{
    RowBox[{"Re", "[", "a", "]"}], ">", "2"}]}], "]"}]], "Output",
 CellChangeTimes->{{3.6024888939273696`*^9, 3.60248894246437*^9}, 
   3.60249111885137*^9, {3.602499626400339*^9, 3.6024996547173386`*^9}, 
   3.6024997046423388`*^9, 3.602499767435339*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"a", "-", "2"}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6024998995313387`*^9, 3.602499917966339*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVjGk41Asbh8eQ7VDoOEnyKkqnpM2LFh5JoxwJoZDKFlPZHTkqHUslpShJ
QtEiNYlCijx/KZXdEMmSJoYZTLMxZizz9n74XfeH+75+y3xCnP3JJBLpyq/9
n2mch91SqRR9bDKUSKRWTBRaFpmIpEg71bZsE7kVoySd8VSOFLXChB1H5VrR
Q17BqL1Xircv8VRaFVtxuW5A7MNXUjzIaakvVG/F53sM9fdESHHpp6byGP1W
pNMKTmQx51BCr9ZJt23FhccfSU2aZtG8TEQuTfv1X5ruvvD4NHYt9LjRtbUN
zVJrfY9sEKNHeYRM/HAbxlctsvtKFqFCRTDJLoeORWVufrP3hbjsn3tPEiLa
0Xz7F+OrIXy0X/UlPn1PB96/ZbO2XpmLr3JK65IdP+Omc7QFfj6jOJX9nW9E
7cTuaZcV6qRhNFpL77NN7kJrlfZ8NWDgYL8TP4v5BZvjaTI9OT34u+Os4ybn
rwjrdhnvYtNR5lWgrN33HgzS1XUt5b/F6ddueeENfVj8u8JMr805NPFafKHo
8zds6KD80fKuBqhD0QFxG77j7oa0FGtrOpzQ+yCILWTgQ8+b87f600HV5P3O
iGcMlBvLvropiQ7H1J75Hy9jIKHyKM2gmQ61ikNLA2oYaOpQfUPeox1u1G3u
utzNQIM2dk59WAcctaFUpCv/QGnnjiLnvE5obtFLLQn5gWWMiWYfUg94Zjds
VbEdRJu6qirHlT3g+piVSnMYxI7ChMeW9j3QaFNx39ltEIWh6ue1M3sgUxC2
vNh/EDdKjSzo63rhT7Mm45LEQSxa4vdk++E+WM9YGNpWO4iPXOgX9Kq/wUA+
nVVJGUIH3/16Py0YoIB3XrKOMDGBqMjL38uAsJop6xtUJlYs1dZ382bAhqia
JNtwJi7/0rviTSIDst3m+xIJTJyw91lzqYEB5XkWG+QKmJhtGmRq6P4Dpjuu
OvdwmMhWSrA/HDkIiUGJLrKJw3iuuCi65TETDh2tv21bN4LOL0OLZ98wwXm7
4eLGthHUq944sqaNCcqfxI6efSNY1VC+P0nEhKqra42yhCMoZFabbrcZBslT
62239Vnos7RF+LxvGCKqYmIrElholfwzNEONBWcovm/a7dk4P63k0Tt9FljZ
hI80u7Ox92bEAN+UBaVyzuzOo2w8+UC0d68XC0ZySKgax8YiQmqs+JgFygJG
g1Y5G5eKFoz/s4MN/7ilCcqWj6LEdz3VK2oUUl9PaubJj6GNlfqWjRdHYWmw
hqO25him6PCVFbJHwcObk5ivP4Z6n1/QimtGwTTOftuA1RhSKGZcWdUxmK5a
ErPw9BheW2V58vG9MYjpL78dPDGGq8f/OidqHYffToe1PxWOY+QnI7fGH+OQ
Kmg9azaPg28eqBrmTY4Dmfojul2Tg46HWj7a6XDAfWplg7UZB6NanFVyAzgQ
nklxJZ/i4NsS9+s2cxx4qUNRXyb/E9dWvmj9qMkFa5fd+UxNLir+xzc2TZcL
/nnXXBt1uTgYr2HkYciFRRdkmJWGXMyyC7swas4F73mmAxWbf/VfjS3nH+TC
rjLPBUaHuMiYKnyyL58LLVUhcfKFXMwwvXu+35gHbZl2gaq2PAzL2mtSYMaD
yIh7t52ceGg/N/c9xIoHR+TylfI9eShb52Uh48yDjA+HxwNCeRjqukSo/zcP
/E4ZUJKzeGgXmeFNreTB1kW1CRY8HkpLLm8T2vJBY1nNNZVCPj48dmJnjBMf
jL6/+KBUzkcHfXsHkicfXp06o7u4lo+56b8dUQnmw9x/d9cH9/HR8mRygkE6
H9b5+xyWaAjw9LakepcBPvCHdmiVxwlwqi7hQFm0APqVtEcmgoV496yv99Z4
AYTSdmomxwpxl/mOYzWXBHD931FN0ytCvFlIPt2UKwAv8q2gzqdCNL0cd2fo
3S+/5NYdS44QI53OMjXVhcDlaT0YiJhAbk9MZFShEDYJYlLWp0+iQ/Kttx7P
hZBSk39d8GASaeYValApBH3lqjz6y0mk3pigKTQJwdfj88BQzyQyHEKHMrlC
qFZaEhC4QoSfa/zdKs0mQLzv4kGdahG+LnA0J9VNQHSImhdVUYxabiHnB5sn
QI2+2dNKV4xRclc6PnZNQIplUIaFiRg3eTeEprEmwPw19QDtiBhp2pTC5aqT
0NipTj1aKcbclK3aO10mwYRtnkGLlmBCxMqZi4xJMHSuT+3SnMG7lzsyto9O
QlEj4d60fgarHsRvEAsmgR6ut0j01wwKu/qPBs4Twe1Wv8aR+Bn023azjbJK
BGHfLq13E8wgZZ5igWywCMpa5GNZ/bPoo1u+vTJKBHprZS4fm53FWDO/3vCz
Ihg4tsxwtc4cllMJdUaqCA6n3FcJ9JhDw+bo08QLEeyWlp0Rds+h4k2W0xmx
CLRgMECZKUWD4ptjJuQp+LDTWP24HImw+rTzwpjyFBSM1amINElE9HRelafO
FPDbTh1I2EwiWIc9DLfAFHjmUlJPxZOI+lUNM5OJU/BE4+93fjoyxOXXtIJQ
NTHsmO8acDqSTESuupQztFgMetk2JR9TyIRXBvW6h74YKJqa5R4FZMI4fOVZ
G1Mx9PK1Yl16yETbn3fdtA6KYeqk9j6CIkv8cev6PKJADM170p9lGckRc/Lh
0yYlYvh3/7bCbjs5YjjSkVf4Wgxx3Y29EVQ5osJRte96kxi8DSyjiQI5wlPx
QmmAQAxD3S1U9qp5xN2TMb4LQALeF2WDVoA8kTR0wD1xlwRmLGoz+b7yRNg+
s71iJwmw8xc7bbkoT1ivE2754SeBAxXuWjs+yxNDzCCNl8kSMDHUSIiLUCCa
XewVjdIlcK52fM2xbAWi/O3qubs5EiAPTycx3isQSbnDrORiCYQE5h26oq1I
rHbzrjnUKYHca+awpkGR0HgHL9u/SaBA+84H1pQiMb1B9+kulgTefL/l6myo
RDSq9mRunJHA+9p3F9efVyIe9qvdC9SehvDSO8V3DJSJ/wF+SMqd
     "]], LineBox[CompressedData["
1:eJwVUnk4lAsfZfYZSnkrfUKbpUVpcz9Kfj9L2rWhVMoVUkhFd4ZUKpporojs
ri0ldS0piihLSVSodyoiTWNfMpYxmTSf74/znOc85znPOX+c+S4+u90oSkpK
1ybxf/53/arg0TMUtOXOXNVN56B12I3CqdEUjHj9SuzbyELNchPe2zgK+iuk
1mqZLBwcazUNT6ZgkFXjuR08Fia7LS2dcoeCK0oGMvLmsVCKVZWqxRT0rMk0
SuAxMWtstJ7TRsH3HX4JfpYMPL886cZrMQXbg77z+7QZaOdmaRfWTcGwPquE
5p90VH4f/pE9TMHnHY+MZhXQcX+OQSuLQcXMEwcsypfQUdXNsZdhSMW+TPUF
a5fRUJSouP9yBRXf/rusZqUaDR83Zp64YkxF4UTnnksSKrrhkIQOVHz0ulhu
UETFsjnXZLTdVAzMjG04aEPFk41P6VQeFXu/UTLRl4ILgik9pwKpqHmRDa8P
TO423vS2LYiKU1rrTa9bU/CP+PcxZaFU3Bn64UP1LAr+OtxjEJBIxfSrMw2+
lCrj1X6NLZIyKnbYCs6IZirj2hSn5c6VVKT/0mopV1bG3p0Z6u+qqRjSNsqr
71dC24fLm+/XU/HBu80lvJdKOOPsBi8PERUVnJ1qYn8lTGX5hn+l0zDhlaXe
pgYF7C5+fNqWQ8MJ7W1lh3IUQPX67VA6lYaH15emll9TgPu70LmJGjRs+TbX
xWOjAgxjUvMcFtNQ8lqRMrfiNzxe+LbxzTYaMuUav3yqJqDefLHG0ygavn3q
Vb5gTA5tmYVpM+Jo+IPd6Z7zRQ4SVWtD7yQaJjXo9nhWyEG9+ZCFTiYN88qm
7g8Il4MdN9ozqJCGw1OuKAsXyeFjruKZ9Wca5o+5l2q4j0PrPKHHGx06RsZU
MOMVMhjgHxnWW0jH+/J2O98eGSgGBs+dN6Dj/FSzradIGcwrVYkyWkHHfSK1
N8J7MnBxtCiNtKBjSacszny/DNoj7093cKUjo+BOmEnpGPRRLhe33qXjtFXD
0sp4KRyJzhq6mUPHbFHvXApfCk16b5dsn/xR2bR/dh32k0L1pv8kljylY6vV
zOQzO6SQHp57Nu4dHSknhu6xmVLYq/nFbPcoHZWqNnpHnh2FipXGz14gA7fZ
xCc78kbApHL/WOAGBvZznE1HPUYg1y7IaM0WBs7vTe6+4zgCSdzalPQ9DAw+
qfZk17oR4Jb+GXTBnYENqykR+YphMNwcbmEqYGBsGv8LVzAMsc6dlfc/MpDj
67Oi6+EQdHnd1yG+MNCkuu56V9YQrPU/5e/fNtk/L22zLGkIWiPly226GbjS
0XXvhpAh0K9US/g6zsCHF7mFNxyGoFDP5KS6DhPDx3Q2iOQSIHuuavFcJ3VL
6PrUnRLQH9vObfVgYud2t8X7bCTAoxKN1t5MTKxpttIyk4CWVjJ/+l9M1M5w
y3llIAHX7flD2Xwm6pCX2XmKQRjJ/fyqJZuJ+ovkw7fzB4E4s+SMlYSJeLq7
Kld7EOru8c+xpEwMOHH7J3PGIASLxCFvxpmY4rTliSdnMr8jJWYvjYUZE6VT
7g38gA9LZjz21GDhuS76FueMHxDTNjEetZ6FzxfqZbdN+wGztzUEiUNZ+Lew
xdtU3g/1l5aH3g1nYc9lL4/LPf1w9cm1yBNRLMwujv359XM//NS3SZclsRDo
5q71j/uhSbmkUjWPhQEXxljXuP2QWHSLYSxkoeUnwaftsj7QWcgThCxgo+dU
j+ObGH3w4INf0U99Ns5dZ7YsU9YLG66cEnkvZWNVSLCRWm8veHUfN3FYw8aN
aiGZnPpeKM51EuvbsHF573fr5IResDezMnt1jI27p2Wvnr+qFwT2U/s4+Wx0
55p/XHy8B8b5t7ZGAAfzbzi9bhjvgr6BLq0BKw4aXxvPXTnYBV/tlw1s3cRB
msmbxIT2LqhaWBjB3MXB+jnm+/j1XfD3s2ryvAsHLaxyDGpvd8G8sZ7D3iEc
nNjh4j9k1wU27iv9ttRy0JA0dPirqBMircuSaHtV0DDt6uV1UR3QQybMKT+g
gg89zW83hHaA5VFuwjlnFYya7ZviE9QBI6Er4qTHVDC6ZNdAhXcHOLxLj+oK
VMHkXOPBF5s6QHM/P6wuXQVdjeK3GCt1wC2fnbzoARWM2y2ID/Brh6IE0R7d
K6ron6OkLTwphp7bh0avh6liW8CxvLRjYtApaIqRh6tinBY4nHYRw5Xaxs+N
saooiHpfucBODA6/Kg5fvKuKpPjRjWf/FcOoU4Zna50qXsqQcsWK77B6vuvl
OGIKtvoIoh9HfYfcO+0PVNOmYI3mnrarr0Twh+0wN/X9VFQf1K/Rtf4GZvrc
TlulaajRuvVE1e+v8FJJ3JEvmDbZfzTXTdICsxc5xPfoTsfSVUnRkt/N0Jhd
lMIsmI6BJ4O5z12b4PhnNR9Hc3WM8bFtqp74BDV23pIgUh31uK0yzbSPELm0
uFrgQmDRLJc8p0AhNHb7RVPcCKxX0JovcYWgnmX0J+8ogWseftXOPi2EG7qZ
40e8CBwqbuz47SGEaO2IZev+InD/qIpzub0QYtTco7pDCfQp832ZZSSEhOHp
h23yCewMo+2RiUloyq9b+rSAwNmSqnGnNhI0T/JlKwsJ3DYQEfmimYTEvl+R
2iUEtjR58xMaSUhq76waqZrck3vk9IHnJKR8LF2S8YnA1I11piZJJLTd5I3N
biaw0MzJ8mksCfPsVleFtxDIvSfVt4wiIbU+yylARKDD2VsX9oSRkF4TFbGr
b9LvrrUV8EgQ8W2dqgcINB/015jrR8ICG/aS9RIC8/RUCwp8SMioOF+5SEqg
oPbgIZE7CeIg04h/ZAQGHmnxDHQhQRdGDs6QE7iW+3Lj7EMkuE7kLA6bIHCz
u3zwkSMJt0qOSRUKAm/6O7vb25PwP5TwIJ8=
     "]], 
    LineBox[{{2.000900646123968, -3.2678827093828255`}, {2.00090820198124, 
     3.252886191635219}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{-2, 5}, {-3.2678827093828255`, 3.252886191635219}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.6024999182413387`*^9}]
}, Open  ]]
},
WindowSize->{707, 797},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData[All]], 
   Cell[
    StyleData["InlineFormula"], FontFamily -> "Ubuntu Mono", FontSize -> 16, 
    FontWeight -> "Plain", FontSlant -> "Plain", 
    FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}], 
   Cell[
    StyleData["DisplayFormula"], FontFamily -> "Ubuntu Mono", FontSize -> 16, 
    FontWeight -> "Plain", FontSlant -> "Plain", 
    FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}], 
   Cell[
    StyleData["DisplayFormulaNumbered"], FontFamily -> "Ubuntu Mono", 
    FontSize -> 16, FontWeight -> "Plain", FontSlant -> "Plain", 
    FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}], 
   Cell[
    StyleData["Program"], FontFamily -> "Ubuntu Mono", FontSize -> 16, 
    FontWeight -> "Plain", FontSlant -> "Plain", 
    FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}], 
   Cell[
    StyleData["Code"]]}, WindowSize -> {707, 797}, 
  WindowMargins -> {{24, Automatic}, {Automatic, 30}}, Visible -> False, 
  FrontEndVersion -> "9.0 for Microsoft Windows (64-bit) (January 25, 2013)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 303, 9, 31, "Input"],
Cell[885, 33, 263, 8, 49, "Output"]
}, Open  ]],
Cell[1163, 44, 265, 7, 31, "Input"],
Cell[CellGroupData[{
Cell[1453, 55, 168, 4, 31, "Input"],
Cell[1624, 61, 112, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1773, 69, 329, 12, 49, InheritFromParent],
Cell[2105, 83, 475, 17, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2617, 105, 523, 8, 31, "Input"],
Cell[3143, 115, 121, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3301, 122, 663, 17, 49, "Input"],
Cell[3967, 141, 720, 17, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4724, 163, 508, 11, 31, "Input"],
Cell[5235, 176, 8543, 148, 252, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13815, 329, 221, 4, 31, "Input"],
Cell[14039, 335, 483, 10, 21, "Message"],
Cell[14525, 347, 326, 10, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14888, 362, 302, 10, 44, InheritFromParent],
Cell[15193, 374, 323, 10, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15553, 389, 476, 16, 44, "Input"],
Cell[16032, 407, 3207, 59, 241, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19276, 471, 126, 2, 31, "Input"],
Cell[19405, 475, 89, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19531, 481, 362, 11, 31, "Input"],
Cell[19896, 494, 467, 16, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20400, 515, 654, 17, 31, "Input"],
Cell[21057, 534, 411, 10, 78, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21505, 549, 303, 9, 31, "Input"],
Cell[21811, 560, 6596, 116, 238, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
